home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
1st_b110.zip
/
20-MAIL.SCR
< prev
next >
Wrap
Text File
|
1993-01-28
|
1KB
|
74 lines
'
' QSO script for 1stReader
' January 13th, 1993
'
CAPTURE ON
TIMEOUT 30
LOOKFOR "-Press Any Key-" "^M"
LOOKFOR "Read Now(Y/N)?" "N"
LOOKFOR "correct?" "Y^M"
LOOKFOR "(S=Stop)-" "S"
LOOKFOR "-More-" "S"
LOCKLINE 20 30
COMMENT "@DATE@ @TIME@ Connected with @BBSNAME@"
COMMENT "@DATE@ @TIME@ Opened capture file @BBSID@.CAP"
COMMENT "@DATE@ @TIME@ Logging in to TBBS"
WAITFOR "Name? " 50
IF FOUND=0 EXIT
TRANSMIT; "@USER@^M"
WAITFOR "Password: " 30
COMMENT "@DATE@ @TIME@ Transmitting password"
TRANSMIT "@PASSWORD@^M"
WAITFOR "Command: "
COMMENT "@DATE@ @TIME@ Opening QSO"
TRANSMIT "@QMAIL@"
:UPLD
IF NOT REPLIES GOTO DNLD
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "Command? "
TRANSMIT "U"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "Processing reply file"
WAITFOR "file complete|uploaded archive"
IF FOUND=1 GOTO UPKILL
IF FOUND=2 GOTO UPERROR
GOTO DNLD
:UPKILL
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
TRANSMIT "^M"
:UPERROR
TRANSMIT "^M"
GOTO DNLD
:DNLD
WAITFOR "Command? "
TRANSMIT "D"
WAITFOR "messages (Y/N)?|no new mes"
IF FOUND=1 GOTO DLCONT
TRANSMIT "^M"
GOTO GOODBYE
:DLCONT
TRANSMIT "Y"
COMMENT "@DATE@ @TIME@ Downloading messages"
WAITFOR "@BBSID@.Q"
DOWNLOAD @PACKETDIR@@BBSID@.QWK
:GOODBYE
WAITFOR "Command?" 20
TRANSMIT "G"
:EXIT
PAUSE 5
HANGUP
CAPTURE OFF